home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / HTML Spy277011062001.psc / HtmlSpy / aboutme.frm (.txt) next >
Encoding:
Visual Basic Form  |  2001-09-21  |  4.1 KB  |  115 lines
  1. VERSION 5.00
  2. Begin VB.Form aboutme 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "About"
  5.    ClientHeight    =   2370
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4740
  9.    Icon            =   "aboutme.frx":0000
  10.    KeyPreview      =   -1  'True
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   2370
  15.    ScaleWidth      =   4740
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.Frame Frame1 
  18.       Height          =   2115
  19.       Left            =   150
  20.       TabIndex        =   0
  21.       Top             =   90
  22.       Width           =   4455
  23.       Begin VB.Label Label1 
  24.          Caption         =   "HTML Spy 1.0"
  25.          BeginProperty Font 
  26.             Name            =   "MS Sans Serif"
  27.             Size            =   9.75
  28.             Charset         =   0
  29.             Weight          =   700
  30.             Underline       =   0   'False
  31.             Italic          =   0   'False
  32.             Strikethrough   =   0   'False
  33.          EndProperty
  34.          Height          =   315
  35.          Left            =   120
  36.          TabIndex        =   4
  37.          Top             =   360
  38.          Width           =   1605
  39.       End
  40.       Begin VB.Label lblEMail 
  41.          Caption         =   "solutions@eadvicer.com"
  42.          BeginProperty Font 
  43.             Name            =   "MS Sans Serif"
  44.             Size            =   8.25
  45.             Charset         =   0
  46.             Weight          =   400
  47.             Underline       =   -1  'True
  48.             Italic          =   0   'False
  49.             Strikethrough   =   0   'False
  50.          EndProperty
  51.          ForeColor       =   &H00FF0000&
  52.          Height          =   255
  53.          Left            =   120
  54.          TabIndex        =   3
  55.          Top             =   1740
  56.          Width           =   1845
  57.       End
  58.       Begin VB.Image Image1 
  59.          Appearance      =   0  'Flat
  60.          BorderStyle     =   1  'Fixed Single
  61.          Height          =   1755
  62.          Left            =   2820
  63.          Picture         =   "aboutme.frx":000C
  64.          Top             =   240
  65.          Width           =   1485
  66.       End
  67.       Begin VB.Label lblWebSite 
  68.          Caption         =   "http://www.eAdvicer.com"
  69.          BeginProperty Font 
  70.             Name            =   "MS Sans Serif"
  71.             Size            =   8.25
  72.             Charset         =   0
  73.             Weight          =   400
  74.             Underline       =   -1  'True
  75.             Italic          =   0   'False
  76.             Strikethrough   =   0   'False
  77.          EndProperty
  78.          ForeColor       =   &H00FF0000&
  79.          Height          =   225
  80.          Left            =   120
  81.          TabIndex        =   2
  82.          Top             =   1140
  83.          Width           =   1905
  84.       End
  85.       Begin VB.Label Label3 
  86.          Caption         =   "Send Your Queries To :"
  87.          Height          =   255
  88.          Left            =   120
  89.          TabIndex        =   1
  90.          Top             =   1440
  91.          Width           =   1845
  92.       End
  93.    End
  94. Attribute VB_Name = "aboutme"
  95. Attribute VB_GlobalNameSpace = False
  96. Attribute VB_Creatable = False
  97. Attribute VB_PredeclaredId = True
  98. Attribute VB_Exposed = False
  99. Option Explicit
  100. Private Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)
  101. Private Const SW_SHOW = 5
  102. Private Sub Form_KeyPress(KeyAscii As Integer)
  103.         Unload Me
  104. End Sub
  105. Private Sub lblEMail_Click()
  106.     Screen.MousePointer = vbArrowHourglass
  107.     Call ShellExecute(Me.hWnd, "open", "mailto:solutions@eadvicer.com", vbNullString, CurDir$, SW_SHOW)
  108.     Screen.MousePointer = vbNormal
  109. End Sub
  110. Private Sub lblWebSite_Click()
  111.     Screen.MousePointer = vbArrowHourglass
  112.     Call ShellExecute(Me.hWnd, "open", "http://www.eadvicer.com", vbNullString, CurDir$, SW_SHOW)
  113.     Screen.MousePointer = vbNormal
  114. End Sub
  115.